home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_096 / warptext / warpc.asm < prev    next >
Assembly Source File  |  1992-05-06  |  4KB  |  107 lines
  1. * -------------------------------------------------------
  2. * WarpC.asm -- C Interface For WarpText Routines
  3. * Written by Anson Mah 06/08/87
  4. *
  5. * Interface to WarpText 2.0 added 06Jul87 by billk.
  6. * Actually, I don't think the 2.0 interface I just wrote
  7. * will be very useful.  Ah well.  It's there, do what you
  8. * will with it...  Bill.
  9. * -------------------------------------------------------
  10.  
  11.         XDEF    _InitWarpInfo
  12.         XDEF    _GotoXY
  13.         XDEF    _GetXY
  14.         XDEF    _WarpText
  15.         XDEF    _SetupFont      ;WarpText 2.0
  16.         XDEF    _NewWarp        ;WarpText 2.0
  17.         XDEF    _XORCursor      ;WarpText 2.0
  18.  
  19.         XREF    InitWarpInfo
  20.         XREF    GotoXY
  21.         XREF    GetXY
  22.         XREF    WarpText
  23.         XREF    SetupFont       ;WarpText 2.0
  24.         XREF    NewWarp         ;WarpText 2.0
  25.         XREF    XORCursor       ;WarpText 2.0
  26.  
  27. * ----------------------------------------------------
  28. * Call: InitWarpInfo(winfo);
  29. *       struct WarpInfo *winfo;
  30. * ----------------------------------------------------
  31. _InitWarpInfo:
  32.         move.l  4(a7),a0                ; get pointer to WarpInfo
  33.         jsr     InitWarpInfo
  34.         rts
  35.  
  36. * ----------------------------------------------------
  37. * Call: GotoXY(winfo, x, y);
  38. *       struct WarpInfo *winfo;
  39. *       UWORD x, y;
  40. * ----------------------------------------------------
  41. _GotoXY:
  42.         move.l  04(a7),a0               ; get pointer to WarpInfo
  43.         move.l  08(a7),d0               ; get new X position
  44.         move.l  12(a7),d1               ; get new Y position
  45.         jsr GotoXY
  46.         rts
  47.  
  48. * ----------------------------------------------------
  49. * Call: GetXY(winfo, &x, &y);
  50. *       struct WarpInfo *winfo;
  51. *       UWORD x, y;
  52. * ----------------------------------------------------
  53. _GetXY:
  54.         move.l  04(a7),a0               ; get pointer to WarpInfo
  55.         jsr     GetXY
  56.         move.l  08(a7),a0               ; get address of x variable
  57.         move.w  d0,(a0)                 ; store x coordinate
  58.         move.l  12(a7),a0               ; get address of y variable
  59.         move.w  d1,(a0)                 ; store y coordinate
  60.         rts
  61.  
  62. * ----------------------------------------------------
  63. * Call: WarpText(winfo, text, len);
  64. *       struct WarpInfo *winfo;
  65. *       char *text;     /* pointer to string */
  66. *       ULONG len;      /* length of string */
  67. * ----------------------------------------------------
  68. _WarpText:
  69.         move.l  04(a7),a0
  70.         move.l  08(a7),a1
  71.         move.l  12(a7),d0
  72.         jsr     WarpText
  73.         rts
  74.  
  75. * ------------------------------------------------------
  76. * Call: SetupFont(nwinfo, tf);                    WT 2.0
  77. *       struct NewWarpInfo *nwinfo;               billk
  78. *       struct TextFont *tf;  /* pointer to open font */
  79. * ------------------------------------------------------
  80. _SetupFont:
  81.         jmp     SetupFont
  82.         rts
  83.  
  84. * ------------------------------------------------------
  85. * Call: NewWarp(nwinfo, text, len);               WT 2.0
  86. *       struct NewWarpInfo *nwinfo;               billk
  87. *       char *text;     /* pointer to string */
  88. *       ULONG len;      /* length of string */
  89. * ------------------------------------------------------
  90. _NewWarp:
  91.         jmp     NewWarp
  92.         rts
  93.  
  94. * ------------------------------------------------------
  95. * Call: XORCursor(nwinfo, text, len);             WT 2.0
  96. *       struct NewWarpInfo *nwinfo;               billk
  97. * ------------------------------------------------------
  98. _XORCursor:
  99.         jmp     XORCursor
  100.         rts
  101.  
  102.         END
  103.  
  104. * ------------------ *
  105. * End of "WarpC.asm" *
  106. * ------------------ *
  107.